Chip 1998 July/Chip_1998-07_cd.bin/zkuste/mazda/mazIn311.dxr/Internal_9_Sound Play Castmember.ls

Text File | 1998-05-06 | 1.5 KB | 56 lines

property whichevent, WhichSound, WhichChannel, StartImmediately, tester

on initPlayMember me
  init(me)
end

on mouseUp me
  if whichevent = #mouseUp then
    init(me)
  end if
end

on mouseDown me
  if whichevent = #mouseDown then
    init(me)
  end if
end

on prepareFrame me
  if whichevent = #prepareFrame then
    init(me)
  end if
end

on enterFrame me
  if whichevent = #enterFrame then
    init(me)
  end if
end

on exitFrame me
  if whichevent = #exitFrame then
    init(me)
  end if
end

on init me
  if soundBusy(the WhichChannel of me) then
    puppetSound(the WhichChannel of me, 0)
    updateStage()
  end if
  puppetSound(the WhichChannel of me, the WhichSound of me)
  if the StartImmediately of me then
    updateStage()
  end if
end

on getPropertyDescriptionList
  set p_list to [#WhichSound: [#comment: "Sound:", #format: #sound, #default: EMPTY], #WhichChannel: [#comment: "Channel:", #format: #integer, #default: 1], #whichevent: [#comment: "Initializing Event:", #format: #symbol, #range: [#mouseUp, #mouseDown, #prepareFrame, #enterFrame, #exitFrame, #initPlayMember], #default: #mouseUp]]
  return p_list
end

on getBehaviorDescription
  return "Plays the designated sound cast member when the specified event occurs, or when the message ." & RETURN & "PARAMETERS:" & RETURN & "ΓÇó Sound - Choose the sound cast member to be played." & RETURN & "ΓÇó Channel - Enter the sound channel number to be used for playback." & RETURN & "ΓÇó Initializing Event - Specify the event that triggers the behavior."
end